home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO088A.dsk / DRIVE.CLEANER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  26 lines
  1. 10  REM  DISK CLEANER
  2. 20  REM  T. J. MANN
  3. 25  REM  MODIFIED BY M.A.C.
  4. 27  ONERR  GOTO 5000
  5. 30  HOME : POKE 34,2: VTAB 1: HTAB 15: PRINT "DISK CLEANER"
  6. 40  FOR I = 0 TO 30: READ J: POKE 4096 +I,J: NEXT 
  7. 50  DATA 166,3,198,4,208,5,189,138
  8. 60  DATA 192,208,3,189,139,192,189,137
  9. 70  DATA 192,160,160,169,255,32,168,252
  10. 80  DATA 136,208,248,189,136,192,96
  11. 90  VTAB 5: HTAB 5: PRINT "This program will engage the motor": PRINT : PRINT "on the drive specified by the user for": PRINT : PRINT "cleaning by a cleaning disk.  The drive": PRINT : PRINT "will remain ON for about 30 seconds."
  12. 100  VTAB 18: PRINT "ENTER SLOT # TO BE CLEANED: ";: GET SL$: PRINT SL$:SL% =  INT( VAL(SL$)): IF SL% <1  OR SL% >7  THEN  GOSUB 190: GOTO 100
  13. 110  VTAB 20: PRINT "ENTER DRIVE # TO BE CLEANED: ";: GET DR$: PRINT DR$:DR% =  INT( VAL(DR$)): IF DR% <1  OR DR% >2  THEN  GOSUB 190: GOTO 110
  14. 120  VTAB 22: PRINT "INSERT THE CLEANING DISK IN THE DRIVE   AND PRESS SPACE TO CLEAN; 'Q' TO QUIT: ";: GET A$: PRINT A$: IF  LEFT$(A$,1) = "Q"  OR  LEFT$(A$,1) = "q"  THEN  POKE 34,0: GOTO 5000
  15. 130  IF  LEFT$(A$,1) < >" "  THEN  GOSUB 190: GOTO 120
  16. 140  POKE 3, INT(SL% *16): POKE 4,DR%: HOME : VTAB 12: HTAB 16: PRINT "CLEANING": CALL 4096
  17. 150  HOME : VTAB 12: HTAB 11: PRINT "CLEANING COMPLETED"
  18. 160  VTAB 23: PRINT "SPACE TO CONTINUE; 'Q' TO QUIT: ";: GET A$: PRINT A$: IF A$ = "Q"  THEN  POKE 34,0: GOTO 5000
  19. 170  IF A$ < >" "  THEN  GOSUB 190: GOTO 160
  20. 180  HOME : GOTO 100
  21. 190  VTAB ( PEEK(37)): HTAB 1: CALL  -198: HTAB 12: FLASH : PRINT "INVALID RESPONSE": FOR D = 1 TO 1000: NORMAL : NEXT : VTAB ( PEEK(37)): CALL  -868: RETURN 
  22. 5000  HOME 
  23. 5010  VTAB 8: PRINT  TAB( 5);"MAKE SURE YO YO DUCK DIAGNOSTIC"
  24. 5020  PRINT : PRINT  TAB( 10);"DISK IS IN DRIVE ONE"
  25. 5030  VTAB 22: PRINT  TAB( 9);"PRESS RETURN WHEN READY";: GET P$: PRINT P$
  26. 5040  PRINT  CHR$(4);"RUN HELLO2"